home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
program
/
fpkpas92.zip
/
SRCRTL.ZIP
/
RTL
/
DOS
/
PRINTER.PP
< prev
next >
Wrap
Text File
|
1997-07-01
|
762b
|
40 lines
{****************************************************************************
FPKPascal Runtime-Library
Copyright (c) 1994 by
Florian Klämpfl
****************************************************************************}
{
History:
10.4.1994: Version 1.0
Unit ist komplett implementiert
}
unit printer;
interface
var
lst : text;
implementation
var
old_exit : pointer;
procedure printer_exit;
begin
close(lst);
exitproc:=old_exit;
end;
begin
assign(lst,'PRN');
rewrite(lst);
old_exit:=exitproc;
exitproc:=@printer_exit;
end.